1 POKE53280,0:POKE53281,0:PRINT"[147]"
2 READ R:IF R=0 THEN RESTORE:GOTO 2
3 FOR X=1 TO R:READ A$(X):NEXT
4 YP=RND(1)*(25-R-3)
5 L=LEN(A$(1)):FOR X=1 TO R:IF LEN(A$(X))>L THEN L=LEN(A$(X))
6 NEXT
7 IF (L AND 1)=1 THEN L=L+1
8 XP=RND(1)*(40-L-3):C=INT(RND(1)*5):C3=1
9 IF C=0 THEN C1=10:C2=2
10 IF C=1 THEN C1=13:C2=5
11 IF C=2 THEN C1=14:C2=6
12 IF C=3 THEN C1=15:C2=12
13 IF C=4 THEN C1=8:C2=9
14 FOR X=1 TO R
15 IF LEN(A$(X))<L THEN A$(X)=A$(X)+" ":GOTO 15
16 NEXT X
17 A$(0)="":FOR Y=1 TO L:A$(0)=A$(0)+"[183][183]":Y=Y+1:NEXT
18 A$(R+1)="":FOR Y=1 TO L:A$(R+1)=A$(R+1)+"[175][175]":Y=Y+1:NEXT
19 A$(R+2)="":FOR Y=1 TO L:A$(R+2)=A$(R+2)+"  ":Y=Y+1:NEXT
20 FOR C=0 TO L/2:P=XP+L/2-C
21 POKE 211,0:POKE 214,YP:SYS 58732
22 POKE 646,C1:PRINT TAB(P) "[207]"LEFT$(A$(0),C);RIGHT$(A$(0),C)"[208]";
23 POKE 646,C2:PRINT"[223]"
24 FOR V=1 TO R
25 POKE 646,C1:PRINT TAB(P) "[165]";
26 POKE 646,C3:PRINT LEFT$(A$(V),C);RIGHT$(A$(V),C);
27 POKE 646,C1:PRINT "[167]";
28 POKE 646,C2:PRINT " "
29 NEXT V
30 POKE 646,C1:PRINT TAB(P)"[204]"LEFT$(A$(R+1),C);RIGHT$(A$(R+1),C)"[186]";
31 POKE 646,C2:PRINT " "
32 PRINT TAB(P) "[223]"LEFT$(A$(R+2),C);RIGHT$(A$(R+2),C)" [205][146]";
33 NEXT C:FOR C=1 TO R:TI$="000000":WAIT 162,32:NEXT:GOTO 2
34 DATA 1,"LYNX IX..."
35 DATA 1,"(IT TOOK NINE VERSIONS?)
36 [131] 1,"(OH ME GAWD!)
37 DATA 2,"#1 TELECOMMUNICATIONS DISK
38 [131] "UTILITY ON THE PLANET
39 DATA 1,"(ASTEROID?)
40 [131] 2,"600 TO 1200%
41 DATA "FASTER THAN LIBRARY
42 [131] 2,"(DOWN HILL...
43 DATA   "...OF COURSE!)
44 [131] 2,"THE FASTEST FILE COMPILER
45 DATA "AVAILABLE FOR C64/C128
46 [131] 1,"(PRINT#15,'N:JUNK')
47 DATA 2,"NON-DUPLICATING
48 [131] "FORMAT
49 DATA 1,"(NOT XEROXED?)
50 [131] 1,"TWO DRIVE FILE COPIER
51 DATA 1,"(COULDN'T DO IT WITH ONE...EH?)
52 [131] 2,"SUPER SIMPLE
53 DATA "DIRECTORY EDITOR
54 [131] 1,"(DAHHHH..WATTS DAT?)
55 DATA 2,"RELATIVE FILES
56 [131] "UP TO 664 BLOCKS
57 DATA  1,"(E=MC^2)
58 [131] 2,"SUPER FAST
59 DATA "FILE ENCRYPTION
60 [131] 1,"(NIXON WOULD LOVE THIS)
61 DATA 1,"DOS COMMANDER
62 [131] 1,"(CAPTAIN JERK)
63 DATA 1,"FILE READER
64 [131] 2,"UNIQUE YUPPIE
65 DATA "GRAPHICS!!!
66 [131] 1,"(YUP!...YUP!)
67 DATA 2,"THE 'MIAMI VICE' OF
68 [131] "COMMODORE FREEWARE
69 DATA 1,"(HEEEYYY RICO)
70 [131] 2,"BY...
71 DATA "WILL CORLEY
72 [131] 1,"(YUP!...YUP!)
73 DATA 1,"NOT BAD FOR $1...EH?
74 [131] 1,"(BET YA MADE ONLY $79)
75 DATA 2,"WOULD YA BELIEVE
76 [131] "I AM A ROOKIE !
77 DATA 1,"(COMMIE PROPAGANDA)
78 [131] 2,"LYNX WAS THE FOURTH
79 DATA "PROGRAM I EVER WROTE !!
80 [131] 1,"(LETS HOPE IT'S YOUR LAST)
81 DATA 2,"I DON'T EVEN BELONG
82 [131] "TO A USER GROUP !!!
83 DATA 1,"(SHAME!...SHAME!)
84 [131] 2,"LYNX IX...
85 DATA "BORN IN THE USA
86 [131] 1,"(NOT IN TORONTO BY TPUG?)
87 DATA 0